home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_1 / pubdom.tar / pubdom / wolderin / slot < prev   
Text File  |  1990-06-02  |  2KB  |  107 lines
  1. %%HP: T(3)A(R)F(.);
  2. DIR
  3.   SPIN
  4.     \<< 'BANK' RCL \->
  5. X
  6.       \<<
  7.         IF 'X\<=0'
  8.         THEN
  9. "BANKRUPT" 7 DISP 3
  10. FREEZE HALT
  11.         ELSE 'BANK'
  12. .1 STO-
  13.         END
  14.       \>> # 131d
  15. # 64d BLANK (-3,1)
  16. 'WHL1' RCL RAND 20
  17. * IP 1 + DUP SUB
  18. DUP 'WHL' STO "1" +
  19. OBJ\-> GOR DUP \->LCD
  20. (-1,1) 'WHL2' RCL
  21. RAND 20 * IP 1 +
  22. DUP SUB DUP 'WHL'
  23. RCL SWAP + 'WHL'
  24. STO "1" + OBJ\-> GOR
  25. DUP \->LCD (1,1)
  26. 'WHL3' RCL RAND 20
  27. * IP 1 + DUP SUB
  28. DUP 'WHL' RCL SWAP
  29. + 'WHL' STO "1" +
  30. OBJ\-> GOR \->LCD 0
  31. 'WIN' STO 'WHL' RCL
  32. DUP DUP DUP DUP DUP
  33. DUP DUP DUP DUP 1 1
  34. SUB "C" SAME .2 *
  35. 'WIN' STO+ 1 2 SUB
  36. "CC" SAME .3 *
  37. 'WIN' STO+ "PPP"
  38. SAME 'WIN' STO+
  39. "PPJ" SAME 'WIN'
  40. STO+ "OOO" SAME
  41. 'WIN' STO+ "OOJ"
  42. SAME 'WIN' STO+
  43. "BBB" SAME 'WIN'
  44. STO+ "BBJ" SAME
  45. 'WIN' STO+ "JJJ"
  46. SAME 10 * 'WIN'
  47. STO+ "WWW" SAME 10
  48. * 'WIN' STO+ 'WIN'
  49. RCL DUP DUP DUP
  50. 'BANK' STO+
  51.       IF 0 ==
  52.       THEN
  53. "A LOSER" 7 DISP 60
  54. .5 BEEP
  55.       END
  56.       IF 0 >
  57.       THEN
  58. "YOU WIN $" 'WIN'
  59. RCL + 7 DISP 440 .5
  60. BEEP
  61.       END
  62.       IF 10 ==
  63.       THEN
  64. "JACKPOT" 7 DISP
  65. 440 .5 BEEP 440 .5
  66. BEEP 880 .5 BEEP
  67.       END "BANK=$"
  68. 'BANK' RCL + 1 DISP
  69. 3 FREEZE CLEAR
  70.     \>>
  71.   BANK 4.9
  72.   WIN 0
  73.   INIT
  74.     \<< 2 FIX RESET 5
  75. 'BANK' STO { SPIN
  76. BANK WIN INIT }
  77. TMENU CLLCD
  78. "BANK=$5.00" 0 DISP
  79. 3 FREEZE
  80.     \>>
  81.   WHL "PBL"
  82.   PPAR {
  83. (-6.5,-3.1)
  84. (6.5,3.2) X 0 (0,0)
  85. FUNCTION Y }
  86.   WHL1
  87. "LWPCPOLPOCJPOBOPCPOP"
  88.   WHL2
  89. "CPCOCBPBCOCWPBCJOCBO"
  90.   WHL3
  91. "BLPBOLBWBPLBLBJLBLBL"
  92.   B1
  93. GROB 15 20 FFF7100410041004180418041C141E34176413441344134413441F749FF418041C1418041004FFF7
  94.   C1
  95. GROB 15 20 FFF7100410041004108410441E5411241E341034182417249464949413941064100410041004FFF7
  96.   J1
  97. GROB 15 20 FFF71004100410041004DFF51004DDD555555555DDD555D45555D5551004DFF5100410041004FFF7
  98.   L1
  99. GROB 15 20 FFF7100410041004100410041C141E34136491C4500591C413641E341C141004100410041004FFF7
  100.   O1
  101. GROB 15 20 FFF710041004100410041E34115498B4D015D005D005D005D10593841F741E34100410041004FFF7
  102.   P1
  103. GROB 15 20 FFF7100410041004100410041EB597F591C4D0B5DC85D3C591F41F741E141004100410041004FFF7
  104.   W1
  105. GROB 15 20 FFF710041004100410041E7411A49E155155DE5551559E1511A41E7410041004100410041004FFF7
  106. END
  107.